Ответы и объяснения

2014-03-20T14:37:07+04:00
Var
e,m,u:real;
begin
writeln('Введите массу и скорость:');
write('Введите массу: ');read(m);
write('Введите скорость: ');read(u);
e:=m*sqr(u);
writeln('Ответ: ',e);
end.