Плиз решите 1 информатика только напишите полностью программ тыры пыры
Program Test1; Var a1,a2,b1,b2,c1,c2,a,b,c:Integer; Begin Readln (a1,a2); a:=a1*a2; Readln (c1,c2); C:=c1*c2; Readln (a1,a2); B:=b1*b2; Writeln(a, b, c); End.
Последний Readln описался. Там должно быть Readln (b1,b2);