Программа вроде бы так:
program aaa;
var a, p, q, s: real; x: byte;
begin
writeln ('Введите A, P, q');
readln (a,p,q);
s:=a;
x:=0;
while (s>=a*0.8) and (x<12) do
begin
s:=s-p-0.01*s*q;
x:=x+1;
end;
writeln;
writeln ('стоимость уменьшится более чем на 20 % через ',x,' месяцев');
writeln
end.
------------------------
Блок-схема - смотри картинку,
а на счет таблицы данных, - я пас, не знаю что это и как.
Var
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
writeln('answer is: ', a1+a2);
end.
Avascript:var дни=[];for(var сч=0;сч<31;сч++)дни.push(Math.round(Math.random()*25));alert(дни.indexOf(Math.max.apply(null, дни)));
Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
r:=abs(a1-a2);