Var n:=6;
while n>0
begin
writeln("Я люблю Беларусь");
n:=n-1;
end;
1. С:\Физика\Задачи\Механика
2. С:\Физика\Задачи
3. С:\Физика
4. С:\Физика\Экзамен\Вопросы.doc
Путь: С:\Физика\Экзамен\Вопросы.doc
Program chisla;
uses crt;
var a,b,c : integer;
begin
Write('Введите два числа: ');
Readln(a,b);
if a>b then c:=a-b else c:=b-a;
Writeln('Разность чисел равна ',c);
end.