Program First;
var
a, b, c, d, m, n: integer;
begin
a:= 5;
b:= 9;
c:=7;
d:=13;
m:= a*d;
n:=b*c;
writeln(m, n);
end.
Писать можно было и на пергаменте. Да и вообще, коварные китайцы изобрели бумагу и нихотели делится ею со всем миром. Напоминяет историю с шолком, его технологию китайцы тоже долго хранилили в строжайшей тайне.
Program q;var a,max,i:integer;begin max:=30000; for i:=1 to 3 do begin readln(a); if a<max then begin max:=a; end end;
writeln(max,'-ìèíèìàëüíîå');end.
=(7+2+6+4+6+0+9)/7=34/7=4,857142857142857