Program s_i_p;
var a,b,s,p:real;
begin
writeln('введите значение двух сторон');
readln(a,b);
s:=a*b;
p:=(a+b)*2;
writeln('площадь ',s,' периметр ',p);
end.
А какие числа то? Так то много можно написать
Var a,b,s,i:integer;
begin
s:=1;
read(a,b);
for i:=a to b do
s:=s*i;
writeln(s);
end.
Ответ:
var i : integer;
Begin
i := 11;
while i>=4 do begin
writeln(i*i*i);
i := i-1;
end;
end.
Объяснение: Можно и без dawnto.