Составить блок схемы5. Составить программу для вычисления площади квадрата.15. Вычислить

Программки на PascalABC

5. Площадь квадрата :

program ee;

var a,s:integer;

begin

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

readln(a);

s := a*a;

writeln('Площадь одинакова: ',s);

end.

________________________________________________

15. Вычисление значение выражения

program ee;

var a,b,c,d:integer;

q:real;

begin

writeln('Введите переменную a');

readln(a);

writeln('Введите переменную b');

readln(b);

writeln('Введите переменную c');

readln(c);

writeln('Введите переменную d');

readln(d);

q:=a/c*b/d-(a*b-c)/c*d;

writeln('Значение выражения равняется: ',q);

end.