Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Нужна помощь с паскалем

Ответ оставил Гость

Uses crt;
var i,k,p:real;
begin
writeln(Введите k и p);
readln(k,p);
if k>abs(p) then i:=3*sqr(k)*k+3*sqr(p);
if kif k=abs(p) then i:=sqr(k-p);
write(i);
end.