Клавиша Tab
В вопросе ошибка - пропущена буква. Должно быть "какая клавиша не является парНой"
var a,b,t:longint;
begin
readln(a,b);
if(a<b) then a:=a*5 else if (b<a) then begin t:=a; a:=b; b:=t; end;
writeln('a = ',a);
writeln('b = ', b);
end.
Жёсткий диск это я так помню
===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.