№1 записать по правилам изучаемого языка программирования следующие выражения: a^2+(4at^2)/(2+a)

uses crt;

var a,t,z: real; beginwriteln('write a '); readln(a); writeln('write t'); readln(t); z: =sqr(a)+(4*a*sqr(t)/(2+a)); writeln(z); readln; end.

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.