Question

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

Answer 1

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 k<abs(p) then i:=abs(k-p) else   
if k=abs(p) then i:=sqr(k-p);
write(i);
end.

Answer 2

program al;
var k,p:integer;
i:real;
begin
writeln('k=');
readln(k);
writeln('p=');
readln(p);
i:=0;
if k> abs(p) then i:=3*k*k*k+2*sqr(p);
if k< abs(p) then i:= abs( k-p);
if k=abs(p) then i := sqr ( k-p);
writeln(' znacenie i=',i);
readln;
end.