Var a, b:integer;
Begin
Read(a, b) ;
If a+b=10 then write('молодец') else write(что случилось') ;
End.
<span>Программа для создания презентаций, являющаяся частью M</span>icrosoft Office<span> и доступная в редакциях для операционных систем Windows</span><span> и Mac OS</span><span>. Материалы, подготовленные с помощью PowerPoint предназначены для отображения на большом экране — через проектор</span><span>, либо телевизионный экран большого размера
Всё на Вики есть...
</span>
1) 15,18,21,24... 2) -24. ,- 26
Program past;
uses crt;
var name: string;
age: float;
begin
clrscr;
readln('Введите ваше имя'; name);
readln('Введите ваш возраст'; age);
writeln;
if age<5 then
writeln (name, ' 5 лет назад вы еще не родились');
else
writeln (name, ' 5 лет назад вам было ', age -5, ' лет');
endif;
readkey;
end.