Var a,b:integer; begin writeln('Введите два числа:'); readln(a,b); if (a>b) then writeln(a,' > ',b,', ',a,'^2=',a*a) else writeln(b,' > ',a,', ',b,'^2=',b*b); end.
Onajonm: существует несколько типов оптических дисков: cd-диски – для записи и считывания информации с них используется инфракрасный лазер, на cd-диск может быть записано до 700 мбайт информации; dvd-диски – имеют значительно большую информационную емкость, чем сd-диски, так как для записи и считывания информации с них используется лазер с меньшей длиной волны и оптические дорожки на них имеют меньшую толщину и размещены более плотно. на одной стороне dvd-диска умещается 4,7 гбайт информации, но бывают диски двухслойные, тогда объем может достигать 8,5 гбайт. в оптических дисководах используется оптический принцип записи и считывания информации. информация на оптическом диске хранится на одной спиралевидной дорожке, идущей от центра диска к периферии и содержащей чередующиеся участки с плохой и хорошей отражающей способностью.
begin
writeln('Введите два числа:');
readln(a,b);
if (a>b)
then writeln(a,' > ',b,', ',a,'^2=',a*a)
else writeln(b,' > ',a,', ',b,'^2=',b*b);
end.
Пример:
Введите два числа:
5 8
8 > 5, 8^2=64