Не очень ровно..) думаю разберешься
1. Выберите Оператора
2.Введите номер телефона
3. Проверьте и подтвердите номер телефона
4.Введите в окно "сумма оплаты"
5.Внесите купюры в купюроприёмник (возможно ввод нескольких купюр
6.Нажать кнопку "Оплатить"
7.Дождитесь распечатки чека
8.Перейдите в окно "Главное"
Подробнее - на Znanija.com - znanija.com/task/31888514#readmore
Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.
Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.