Решить задачи.
1. Дана площадь квадрата. Определить и вывести на экран сторону квадрата и длину его диагонали.
2. Определите, какое значение примут переменные [tex]a, b[/tex] после выполнения фрагмента программы:
а :=7974;
b := -26+a div 100*100;
a := (a-b) mod 10+7864;

3. Ввести три числа [tex]A, B, C[/tex]. Большее из B и C добавить к А, полученные значения A, В, С вывести на экран.

4. Даны числа [tex]x, y[/tex]. Если они четные, то заменить каждое нулем, если четно только одно, то увеличить его в 5 раз, вывести полученные значения числе на экран.

5. Определите, какое значение примет переменная [tex]c[/tex] после выполнения программы:
a :=20;
b :=10;
b :=b-2*a;
if a < b then c:=b-a else c:=a-2*b;

Огромное спасибо

var a,t,s,zn,zn1:real;z,r,q1,q2,q3,qv1,qv2,qv3:integer;function kv(s:real):real;begina := sqrt(s);kv := a;end;procedure d(r:integer;var m,m1:real);var h:integer;beginh := -26+r div 100*100;r := (r-h) mod 10+7864;m:= r;m1 := h;end;procedure rt(v1,v2,v3:integer;var n1,n2,n3:integer);beginif v2 > v3 thenv1:= v1 + v2elsev1 := v1 + v3;n1:=v1; n2:= v2; n3:=v3;end;procedure rt2(v1,v2:integer;var n1,n2:integer);beginif (v1 mod 2 =0) and (v2 mod 2 = 0) thenbegin n1:= 0; n2:= 0;endelse if (v1 mod 2 =0)thenv1 := v1 *5else if(v2 mod 2 =0)thenv2:= v2 * 5;n1:=v1; n2:= v2;end;function rr(a,b:integer):real;var c: integer;beginb :=b-2*a;if a < b then rr:=b-a else rr:=a-2*b;end;beginr :=7974;writeln('Введите площадь квадрата');readln(s);t:= kv(s);writeln('Сторона квадрата равна = ',t);d(r,zn,zn1);writeln('переменные a, b значение примут ',zn: 5, zn1: 5);writeln('Ввести три числа A, B,C');readln(q1,q2,q3);rt(q1,q2,q3,qv1,qv2,qv3);writeln('A, B, C получили значения',qv1:4,qv2:4,qv3:4);writeln('Ввести числа x, y');readln(q1,q2);rt2(q1,q2,qv1,qv2);writeln('x, y получили значения',qv1:4,qv2:4);writeln('Определяем, какое значение примет переменная c');q1:=20;q2:=10;s:= rr(q1,q2);writeln('Переменная c примет значение: ', s);end.