Uses crt;
var x,y:real;
begin
readln(x);
if x<4 then y:=2*x*x*x+1/x-5
else y:=3*x*x-2;
writeln(y);
<span>end.</span>
Program dialog;
var
a: integer;
begin
writeln('Привет! Какая у вас температура? ');
readln(a);
if a>37 then
writeln('Лечитесь дома')
else if a<36 then
writeln('Седите дома')
else
writeln('Идите в шоклу');
end.
Можно пожалуйста по подробнее
var sum,n:int64;
begin
write('Vvedite chislo: ');
readln(n);
while(n>0) do begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
readln;
end.