Ptint и input на казакском языке​

ответ:var n:byte;

a,b,h:real;

begin

writeln ('Введи номер фигуры 1-квадрат, 2-трапеция, 3-круг, 4-прямоугольник');

readln(n);

if n=1 then

begin

writeln ('Введи сторону квадрата');

readln(a);

writeln('Площадь квадрата=',sqr(a));

end;

if n=2 then

begin

writeln ('Введи длины оснований и высоту');

readln(a, b, h);

writeln ('Площадь трапеции =', (a+b)/2*h:1:1);

end;

if n=3 then

begin

writeln ('Введи радиус');

readln(a);

writeln ('Площадь круга =', pi*sqr(a):1:1);

end;

if n=4 then

begin

writeln ('Введи длины cторон');

readln(a, b);

writeln ('Площадь прямоугольника =', a*b);

end;

end.

Объяснение: