Пример в Excel 2003
Ярлычки листов соответствуют № задания
Var
a, h:integer;
Begin
write('Основание параллелограмма: ');
readln(a);
write('Высота параллелограмма: ');
readln(h);
writeln('Площадь параллелограмма: ', a*h);
end.
<span>program zadacha;
var
a, b, c, s: real;
begin
writeln('Введите три числа: ');
readln(a, b, c);
if a < b then
if b < c then s := b
else
if a < c then s := c
else s := a
else
if b > c then s := b
else
if a > c then s := c
else s := a;
writeln('Среднее по значению: ', s);
end.</span>
Program Max;
Uses Crt;
var a,b,max:real;
begin
clrscr;
write('Введите число а:');
readln(a);
write('Введите число b:');
readln(b);
if (a=b) then writeln('Числа одинаковы')
else begin
max:=a;
if (b>a) then max:=b;
writeln('Наибольшее число:',max);
end;
readkey;
end.
Просто подбираеш по логике числа например 2 4 6 8 или 4 8 12 16 20 или 22 44 66 88