Помогите перевести ** паскаль Начало S:=0 A:=0 __>| | S:= S+A | Ввод A | Нет| | --A<0 Да...

Question

Помогите перевести на паскаль
Начало
S:=0
A:=0
__>|
| S:= S+A
| Ввод A
| Нет|
| --A<0<br> Да |
Вывод S
Конец

Answer 1

Минимум из двух значенийvar x,y: integer; min: integer; begin write('Введите x и y: '); readln(x,y); if xОпределение четности числаvar x: integer; begin write('Введите x: '); readln(x); if x mod 2 = 0 then writeln('Это четное число') else writeln('Это нечетное число'); end.Состоит ли двузначное число из одинаковых цифр