Дано целое двухзначное число.Определить равна ли сумма его цифр 7. Составте к нему и блок - схему.

[DeadAir]

Дано целое двухзначное число.Определить равна ли сумма его цифр 7. Составте к нему и блок - схему. Решите пожалуйста в Паскаль

[Google2010]

uses crt;
var x:integer;
begin
readln(x);
if (x mod 10) +(x div 10) =7 then writeln('yes')
else writeln('no');
readkey;
end.

[ROMA2PVT]

Это не совсем верно.

uses crt;
var x:integer;
begin
readln(x);
if (x mod 10) +(x div 10) =7 then writeln('yes')
else writeln('no');
readkey;
end.

Так лучше будет.

uses crt;
var x:integer;
key:char;
begin
repeat
 write('Введите двузначное число: ');
 readln(x);
 if (x>9) and (x<100) then
 writeln ('Число введено верно')
 else
 writeln ('Число введено не верно(не двузначное)');
 if (x mod 10) +(x div 10) =7 then writeln('Сумма цифр равна 7')
 else writeln('Сумма цифр неравна 7');
 write('Повторить ввод (Yes/No)?');
 readln(key);
Until UpCase(Key)<>'Y';
end.