#include<iostream>
int main()
{
int a=0;int b= 0;int c =0;
cin<<a<<b;
c=a*b;
cout<<c;
}
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, M: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите число тюльпанов на грядке: ");
N := Приём.Число();
Вывод.Цепь("^Введите число лилий на грядке: ");
M := Приём.Число();
Вывод.ЧЦел("^Всего цветов Оля посадила: %d шт.", 5 * N + 7 * M, 0, 0, 0)
КОН Задание.
Var number:integer;
digit:integer;
res:boolean;
begin
readln(number);
digit:=number mod 10;
number:=number div 10;
res:=true;
while number>0 do begin
if digit<>number mod 10 then begin
res:=false;
break;
end;
number:=number div 10;
end;
if res then writeln('Верно') else writeln('Неверно');
end.