Нужно закипетить воду взять пакетик чая положить в кружку и залить водой
Var a,b,c, d: integer;
begin readln(a,b,c); d := a*a + b*b + c*c; writeln(d)end.
Var a, b, c, d, e : longint;
begin
assign(input, 'D:\Vanya\School\Pascal\Input\input.txt'); reset(input); assign(output, 'D:\Vanya\School\Pascal\Output\output.txt'); rewrite(output); read(a,b,c,d,e); write(a * b *c*d*e);
end.<span>
</span>
................................................................................................