А вот у нас на уроках информатики учат форматировать дискеты...
Серьёзно? 
Они ж используются только в ускоспециализированных устройствах.
Ээээ... Чиво? 0_0
Насчет Паскаля в школе - я бы вырывал руки.
В универе - тоже самое.
ИМХО, Qbasic'a для понимания сути программирования хватает за глаза, к тому же там ненужно углубляться в эти идиотские синтаксические тонкости.
Алсо, паскаль-таки скорее жив, чем мертв, в отличии от бейсика.
А вот есть у меня лаба:
Program lab3;
{User enters some value and then program prints all numerics under this value}
var
N : integer;
i : integer;
Code: integer;
userprint : string;
label
1;
begin
1: WriteLn('Enter N value from 0 to 32767');
ReadLn(userprint);
Val(userprint, N, Code);
if Code <> 0 then
begin
WriteLn('Error! Try again.');
goto 1;
end;
if N < 0 then
begin
WriteLn('Error! Try again.');
goto 1;
end;
for i := N-1 downto 1 do WriteLn(i);
WriteLn('Enter any char and then press Enter to end problem');
ReadLn;
end.
Если вводишь не число или число меньше 0 - приходится вводить снова.
А как сделать так, что бы при вводе, скажем, "00000000009" юзера снова заставляли вводить нормальное число?
