S, a - должны быть целочисленными, а не вещественными.
Модель - это :
c) Упрощенное представление о реальном процессе или явлении ;
X - сумма через год
Формула для вычисления процента от общей суммы = ((n*p)/100)
Следовательно, x = n+((n*p)/100)
Program chetnoe;Uses crt;Var x:integer;BeginClrscr;Writeln ('Ведите двузначное число');Readln(x);IF X mod 2=0 then Writeln ('Число четное')else Writeln ('Число нечетное');End.
Program z1;
var a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
read(a[i]);
if (a[i] mod 50 <>0) or (a[i]>10) then a[i]:=11;
end;
for i:=1 to 14 do writeln(a[i]);
end.