Дано: A∧F¯¯¯.

Первым выполняется

​

Program is_ev_2d; var n: integer; begin   write('введите число: ');   readln(n);   if (n mod 2 = 0) and (n > 9) and (n < 100) then     writeln(n, ' чётное двузначное')   else      writeln(n, ' не чётное двузначное') end.

var a,b,c,s: real;

begin

  read(a,b);

  c: =sqrt(sqr(a)+sqr(b));

  s: =0.5*a*b;

  write('гипотенуза треугольника равна: ',c,', площадь равна: ',s);

end.

вот программа

(делаю масив 10на10)  

program matrix;

var a: array [1..10,1..10] of integer;

i,q,b,f: integer;

begin

b: =0; f: =0; q: =1;  

for i: =1 to 10 do begin a[i,q]: =1; end;

i: =1;  

for q: =1 to 10 do begin a[i,q]: =1; end;  

for i: =2 to 10 do

begin

for q: =2 to 10 do

begin 

b: =q-1;

f: =i-1;  

a[i,q]: =a[i,b]+a[f,q];

end; end;

readln

end. 

 

var a,b,max,min: integer;

begin

read(a,b);

if (a> b) then max: =a; else max: =b;

if (a< b) then min: =a; else min: =a;

write(max*2);

write(min/2);

end.