Скачиваний:
288
Добавлен:
04.03.2014
Размер:
296 б
Скачать
program mdf;
uses crt,mmm;
var q,w,e,r:integer;
begin
clrscr;
write ('‚ўҐ¤ЁвҐ ¤ў  б㬬Ёа㥬ле зЁб«  ');
readln (q,w);
summ(q,w,e);
writeln (q,' + ',w,' = ',e);
writeln;
writeln ('‚ўҐ¤ЁвҐ зЁб«®, ў®§ў®¤Ё¬®Ґ ў Єў ¤а в');
readln (r);
writeln (r,' ў Єў ¤а вҐ = ',kvadro(r));
readln;
end.
Соседние файлы в папке Alex