Var a: string;
s: integer;
begin
s := 0;
write ('Привет! Введи пароль: ');
readln (a);
while a<>'qwerty' do
begin
s := s+1;
write ('Не угадал! Введи пароль: ');
readln (a)
end;
writeln ('Теперь пароль введён верно! Количество попыток: ',s)
end.
1. 1) прямоугольник
2) прямоугольник
3) паралелограмм
2. 1) трапеция
2) круг
3) большой круг
3. 1) прямоугольник
2) трапеция
3) квадрат
Шестьдесят яблок
60 яблок.
Или, 1 - 001