Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.
Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.
In.txt и out.txt соотвественно
P.S. in.txt должен быть в Unicode
1) 110011; 63; 51; 33
2) 11010101; 325; 213; D5
3) 1001010010; 1122; 594; 252
4) 1011111; 137; 95; 5F
5) 11101; 35; 29; 1D
6) 10010110; 226; 150; 96
7) 101011001; 531; 345; 159
8) 11010110; 326; 214; D6