Показать сообщение отдельно
Старый 29.04.2009, 20:20   #1
SerJi
AnyKey`щик
 
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Вопрос Помогите переделать!!!

Я недавно сел за MIDletPascal.
Я для начала хочу попробовать переделать програмку с обичного Турбо, но у меня чёто не получаетса.
Напишите ,плиз, пример от такой програмки:
var a,b,c,d:integer;
begin
readln(a,b,c,d);
if a=1 then
if b=3 then
if c=0 then
if d=7 then writeln(№3);
end.
За любые ответы буду благодарен.
(Offline)
 
Ответить с цитированием