Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.
var sum,x:integer;
begin
x:=1;
while x<>0 do begin readln(x); sum:=sum+x; end;
writeln(sum);
end.
Если хочешь вывести текст
write('текст'); //Ковычки одинарные
если ты хочешь вывести переменную то без кавычек
a := 1;
write(a);
Также можешь добавить в конец "ln" т.е. writeln(...); после того как выведет он перенесет на следующую строку
Оператор ввода:
Read(переменная); read(a); read(b);
Также и тут можешь перенести строку:
Readln(...);
50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB