Составьте алгоритм заваривания чая . заранее ))

1.берём чашку. 2.ставим на стол 3.берём чайник 4.наливаем в него воду 6. ставим её греть 7.выключаем чайник после подогрева 8 достаём чай 9 ложим пакетик чая в чашку 10 заливаем водой 11.по желанию можно добавить сахар 12когда чай достаточно заварился,вытяни покетик с чаем 13. и выкинь его в мусорку

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

вот так понятней буде)) ну и более правильно, для

 

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.