на ощуп, задействованы органы осязания.
Возможно, таблицы должны иметь такой вид:
Program n1;
var pas: string;
k: integer;
begin
readln(pas);
k:=0;
while true do if pas='246' then
begin
write('молодец');
break;
end else
begin
k:=k+1;
writeln('неверный пароль');
readln(pas);
if k=5 then begin write('карта заблокирована');
break;
end;
end;
end.
Pascal:
Turbo/Free/ABC:
Var
n:integer;
S:real;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+1/n;
WriteLn('S = ',S);
End.
PascalABC.NET 3.2 (сборка 1467 от 02.06.2017):
Begin
Write('S = ',ReadInteger('n = ').Range.Sum(x->1/x))
End.