Определить результат выполнения алгоритма при определенных значениях входных данных
1.
x=16, y=2
16.
x=16, y=6
2.
x=9, y=3
17.
x=16, y=7
3.
x=25, y=3
18.
x=36, y=1
4.
x=4, y=5
19.
x=64, y=3
5.
x=36, y=2
20.
x=81, y=1
6.
x=16, y=7
21.
x=81, y=4
7.
x=4, y=8
22.
x=49, y=9
8.
x=49, y=2
23.
x=100, y=2
9.
x=9, y=8
24.
x=64, y=7
10.
x=4, y=9
25.
x=36, y=8
11.
x=16, y=3
26.
x=25, y=6
12.
x=25, y=4
27.
x=25, y=7
13.
x=1, y=11
28.
x=16, y=4
14.
x=4, y=4
29.
x=4, y=12
15.
x=9, y=5
30.
x=4, y=13

Program p1;
uses crt;
var a,ed,des,sot,tis,s,p,max:longint;
begin
clrscr;
writeln('введите четырех значное число');
readln(a);
ed:=a mod 10;
des:=a div 10 mod 10;
sot:=a div 100 mod 10;
tis:=a div 1000;
s:=0; p:=1;
p:=ed*des*sot*tis;
s:=ed+des+sot+tis;
writeln('Произведение чисел = ',p);
writeln('Сумма чисел = ',s);
if (ed>des) and (ed>sot) and (ed>tis) then max:=ed;
if (des>ed) and (des>sot) and (des>tis) then max:=des;
if (sot>ed) and (sot>des) and (sot>tis) then max:=sot;
if (tis>ed) and (tis>des) and (tis>sot) then max:=tis;
writeln('Максимальное число = ',max);
readln;
end.

Program asd;
USES crt;
Const n=3;
Const m=3;
Var
A,B,C: Array [1..n, 1..m] Of Integer;
i,j,k: Integer;
S:Integer;
Begin
Writeln('A:');
For i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=random(n);
Write(' ',A[i,j]);
end;
Writeln;
end;
Writeln('B:');
For i:=1 to n do
begin
for j:=1 to m do
begin
B[i,j]:=random(n);
Write(' ',B[i,j]);
end;
Writeln;
end;
For i := 1 To n Do
Begin
For j := 1 To m Do
Begin
S:= 0;
For k:=1 To n Do
S:= S + A[i,k] * B[k,j];
C[i, j] := S;
End;End;
WriteLn ('C:');
For i := 1 To n Do
Begin
For j := 1 To m Do
begin
Write (' ',C[i, j] );
End;
WriteLn;
End;
ReadLn;
End.