Плиз решите 1 информатика только напишите полностью программ тыры пыры

Последний Readln описался. Там должно быть Readln (b1,b2);

Program Test1;Var a1,a2,b1,b2,c1,c2,a,b,c:Integer;BeginReadln (a1,a2);a:=a1*a2;Readln (c1,c2);C:=c1*c2;Readln (a1,a2);B:=b1*b2;Writeln(a, b, c);End.