⇢ НГ
Надежда Гулевич
Нужна помощь в Pascal
Помогите решить 11 и 12 задачу. Паскаль проходил я 4 года назад, и то полгода.
Пытался начудить сам, пишет ошибка.
Program Work_11;
Const Title ='Работа 11';
Var a, b, x1, x2 : integer;
Begin
x2:=0
Write('Введите сумму начального вклада ');
Readln(a);
Writeln;
Write('Введите годовой процент ');
Readln(b);
Writeln;
Write('Введите нужную сумму ');
Readln(x1);
if x1>a then
begin
a:=a+(a*b/100)
x2:=x2+1
else writeln(a:6:2,'наберется через',x2:6:2,'лет')
End.
