Сервер-пользователь
Книга-человек
Будильник-человек
№ поезда Место Время отправления Время стоянки;
21 Пермь 12-10 ---
и т.д.
Я бы так сделал
Var A,B,i : Integer;
Begin
Readln(A,B);
For i:=A to B do Writeln(Sqr(i));
end.
Var
x:real;
Begin
Write('x = '); Readln(x);
if (x > 5) then
Write('y = ', x*x + 1)
else
Write('y = ', 3 - x);
end.
Пример:
x = 4.5
y = -1.5
~~~~~~~
x = 6
y = 37
Голем лишнее. Потому что это персонаж мифологии, а остальные это города в разных уголках.