НА пример:
var
a,b:=integer
begin
writeln('Введите число а');
read(a);
writeln('Введите число b');
read(b);
end.
Получается, что writeln Выводит на экран, что ты ввёл/ввела в скобках.
Друга ищи, а найдешь - береги
Старый друг лучше новых двух
program n1cel;
var
a,c:integer;
begin
a:=1;
c:=1;
while с mod 2009<>0 do
begin
a:=a+1;
c:=c+11;
end;
writeln ('через ', a, ' секунд');
end.
Диск наверное...................
Var x:integer;y:real;beginwrite ('x= ');readln (x);y:=(2*x-4)/2;write('y= ', y:6:2);end.