Известный пират Флинт положил некоторую сумму S в банк под 3% годовых. Выведите на экран,какой станет сумма через N лет
Program S1; Var S, N, a: real; Begin Writeln ('Введите сумму S'); Readln (S); Writeln ('Введите кол-во лет N'); Readln (N); a:=(S/100*3)*N; Writeln (a); end.
Это если на учебном Pascal ABC, на Турбо Паскале чуть по-другому... :)