Ubuntu-gr Forum

[codeprogram hi(input,output);
var a,b,c,d:real;
begin;
write('Δώσε τους βαθμούς');
readln(a,b,c);
d:=(a+b+c)/3;
if (a>10)or(a<0)or(b>10)or(b<0)or(c>10)or(c<0) then
begin
writeln('Μη αποδεκτά δεδομένα');
end
else if d>=4.5 then
begin;
writeln('Ο μαθητής περνάει');
end
else
begin
writeln('Ο μαθητής δεν περνάει');
end;
writeln('Πατήστε ENTER για να εξέλθετε του προγράμματος');
end.
][/code]λοιπόν το έφτιαξα.... το ερώτημα με την delphi ισχύει ακόμα και επίσης ποια είναι η διαφορά της pascal από την turbo pascal;