Заданы стороны прямоугольника. определить его периметр. площадь и длину диоганали. информатика в колледже. . надо решить на языке basic

в оперативной памяти инфр хранится временно,и пропадает после выключения

внешняя память является долговременной памятью

правильно треугольник)

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.