Св паскале, ) нужно написать программу, которая выводит на экран изображение цветка построенная с звездочек.

1) Переводим разрешающую сканера из дюймов в см. 1 дюйм=2,54 см
1200dpi/2,54см=472 точек на см
Площадь листа формата А4==21*29,7=623,7 см^2
А всего точек в сканируемом изображение будет: 472*472*623,7=138950380,8
Каждая точка кодируется с бит, поэтому на кодирование всех точек на листе надо: 138950380,8*24=3334809139 бит информации или 416851142,4 байт или 407081 Кбайт или 397,5 Мбайт
2) Время звучания файла=объем файла/(число каналов*разрядность*частоту)
Объем=2847*512*8=11661312 бит
T=1161312/(1*8*8000)=182 c
T=1161312/(2*16*48000)=7.6 с

Program Ksushaa1999PasswordRepeat;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
repeat
    writeln('Введите пароль ');
    readln (vvod);
  until vvod=pass;
writeln('Принято');
end.

Program Ksushaa1999PasswordWhile;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  while vvod<>pass do
    begin
      writeln('Введите пароль ');
      readln (vvod);
    end;
  writeln('Принято');
end.

Program PKsushaa1999PasswordIf;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
label
  metka;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
metka:  writeln('Введите пароль ');
  readln (vvod);
  if vvod<>pass then goto metka;
  writeln('Принято');
end.