Program S1;Var S, N, a: real;BeginWriteln ('Введите сумму S');Readln (S);Writeln ('Введите кол-во лет N');Readln (N);a:=(S/100*3)*N;Writeln (a);end.
Это если на учебном Pascal ABC, на Турбо Паскале чуть по-другому... :)
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, на Турбо Паскале чуть по-другому... :)